ccccccccccce Lk IIIIII11 UUU UUU TTTTTTTTTTTTTTT CLt 
cccccccccccc LLL III1I111 UUU UUU TTTTTTTTTTTTTTT LLet 
cceccccccccce =k HII UUU UUU TITTTTTTITTTITTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] U UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I}] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL IJ] UUU UUU TTT LLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LELLLLLELLLELLLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HIIIII11 UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
CCCCCCCCCCCC LLLLLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
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SHOWMISC 6-Sep-1 AX-11 Bliss-32 v4.0-74 
¥06 1b-se0-1984 9}: $9; ¥ CLIUTL. SRC Showni se 635: 
MODULE showmisc sg * 3 = *v04-000' 
ADDRESSING_MODE (EXTERNAL = GENERAL)) = 


BEGIN 

; 

. 
leeeeerererrerererrenereererereererererererrerererereerererrerereteneneeeeee 


ie COPYRIGHT | Cc) 1978 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGH $ RESERVED. 


ie THIS te ‘ucche IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copies 
'* ONLY IN ACCORDANCE WITH THE TERMS OF on a oar’ ro THE 


* 
» 
* 
* 
° 
. 
* 
* 
' * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE * 
t® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
* 
a 
* 
* 
* 
* 
* 
* 
* 
* 


t@ TRANSFERRED. 


:® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
. CORPORAT ihe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


—) —t bb > bd se bd td 
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SeRRRRR EERE HERA AHHH ERAAAHAAAEAEREEAAHEREREAEEAREAAKORHEREREERARARAeAeeAAEE 
! 

i 

ies 

i FACILITY: SHOW utility 

i ABSTRACT: 
: This module contains the aaa routines for SHOW RMS, SHOW 
WORKING _SET, SHOW ACCOUNTI 


ENVIRONMENT 
VAX nat tebe user mode. 


! 
' 
' 
t 
' 
i 
i 
i 
i 
: AUTHOR: Gerry Smith CREATION DATE: 25-Jun-1982 
MODIFIED BY: 

v03-007 Raseret Ron Schaefer 27-Mar-1984 
' 

' 

' 

! 

! 

' 

' 

' 

! 

1 


MEUM "OO OCONOULS WN —OOOnoOu 


SSSSSSSSSSSSssssssss 


SeNy 


| | eee en ee ee SY 
- 


aa Network Block Count “Siepter to SHOW RMS; 
adjust display alignments. 


v03-006 MCNO155 Maria del C. Nas 01-Mar-1984 
The offset to the disallow Nees. is from the start of 
the PCB structure, and not the longword. 


v03-005 MCNO150 aria del C. N 09-Feb-1984 
Make display wy SHOW WORKING_ Set values larger. 


v03-004 GAS0148 Gerry Smith 27-Jun-1983 


SSS SS SS SES EEEESE 


NOUNS WN OO OONO UE WO 


S 


a 


1Seseoctgee 94:2) yo rt ee gsr ¥ Page 2 


: 


3 i ' Update SHOW ACCOUNTING to display all classes 

; : accounting. 

; i v03-003 GASO1 its, O-Apr-1983 

g oe : Fix Testanl for i 8 AH aut yor 

: 664 1 i v03-002 GAs0107 Gerry Smit 8-F eb-1983 

3 65 Extend the output field width for SHOU WORKING_SET. 
; & 1 i v03-001 gaseies gt Belg 31-Jan-1983 

3 3 1! the output of RMS so that the multi-buffer 
; $ : : at. come out correctly. 

; ry 1 ine 


OO EE ooo - 


te SScHSHL QU:GD:DS YASUE, of 


; 1 

; 1! 

: | i Include files 

; BRARY 'SYSSLIBRARY:L 18"; t YAX/VHS system definitions 
i 80 : REQUIRE *SRCSSSHOUDEF | Sabo counte cet initions™ 


7 


aaa 


: 
Sep 


SRE Sshounise 089: 1 


1986 92:69:43 = Yetidt 


t 


1 
1 


: 


sre 
ws r 
S22 : 
255 Z 
2 ** 2 
e och dscdced Bcc FE > 
~ —_~ — 
S £85 S2SFss . Scsisess. 53 F 
§ ae a a Vv xk +} eee UO Uv we w~ 
€ ¥SSs E2eeeeeeesseeeeeezess 23 
s a ge ee eee & | PS € € me 
v vet aaa ar Na _ ar aaa rah . au 
GESSSSSSSSSESSESEESSS LS 
2 ¢ SEESReeEerpccsesesses 23 
3 =<aaen Suvaaaaaaaa eaaeaacaaaaa “ 
ee 5 
of faa oad = 
lem ve we Aad 
- OP CO OOOO ee 


RRQnswsowDoOTDOTCTOSOS OOOO OSOS OOS ES 


INICIO 


DoHOHHOOP SOTTO SOS OOOOSOSOS OS EN eee 


fel cel el cel cel eel el el oe eel oe ee ol el oo ol 


—_—— 


PEA 


wr 


> + a sb 2s + 5 5 as - an 


—> —) —) 4» bs 


NOE UT 


NOs 


rB-sep-1986 01:21:15 yaxett Lis 


1 ' 
1 | Declare some OWN storage, string descriptors which describe the various 
; types of accounting. 
} 08 t VECTORC10) INITIAL 
acc_type : 
1 GAscib 9 PROCESS ony process A + seameariaaaal e 
1 ZASCID * IMAG image exgcut 
1 ii . iw} pacer active job termination’, 
1 ZASCID * £06 N rennet ailures 
1 ZASCID ° UBPROCE su process oftrmination®. 
1 ZASCID ° DETACHED detach terminat jon’ ‘ 
: ZASCID ' BATCH batch f Jobe ination’. 
1 ZASCID ° NETWORK network jo termination’ s 
1 ZASCID * PRINT all print job 
: ,Asele . MESSAGE user messages* 
1 ° 


Fs 


o758351 


Page 


K 6 
viet ae oets rae Pe eT oat bet Sh Poe ott ae 


ROUTINE showSaccounting : NOVALUE = 


This routine performs the SHOW ACCOUNTING function. A copy of the 
; prcouns ng flags is brought into local memory, and based on the 
bit setting, the current accounting options are displayed. 


AL 

acmflags : BITVECTOR(32); ! Temp storage for accounting flags 
' 
! Get a copy of the accounting flags, so that the a settings are consistent 
for the duration of this invocation of SHOW ACCOUNTING. 


acmflags = .exe$gl_acmflags; 


i Determine if any accounting is turned on. If not, then simply print a 
Line saying that, and return. 


if .acmflags EQL 0 
THEN showSwrite_Line(ZASCID ‘Accounting is not currently enabled.', 0) 


i If something is set, then write a header Line and then print whatever 
activities are shown in ACMFLAGS. 


Se UP APG OS ee OOS 
MPUR' oO 
23 
z 


N 
showSwrite Line(ZASCID ‘Accounting is currently enabled to log the following activities:!/", 0); 
INCR i FROM 0 TO 9 DO 
IF .acmflags 
THEN showSwr 
END; 


te_line(.acc_typel.iJ], 0); 


Be Se Se Oe Se Se we FH Se Se Se we Se Oe Ge Se Se Ge Se FH Se Se Se Se Se Se Se Se SH Se Oe Se Os Ge Ge Se Ge Ge Ge Ge oe 
SARANASSELSAFSALLSSS RERUN OO NO Row 
OOOCOCOCOOSOSOSOOCSOSCOOCSCOO OOOO OOOOOOOOOCOOOOO 


SSSISEGFERIS SHS AEGIS 


$ RETURN; 
END; 
-TITLE SH S 
~ IDENT SOR b80\ 
-PSECT SPLITS,NOWRT,NOEXE,2 
20 20 53 53 45 43 4F 52 50 20 0000 P.AAB: .ASCII \ PROCESS any process termina\ 
gs 3 a 32 9 30 99 6 61 20 29 30 § 3 39 OOF Ag 
61 6€ 69 6D 6 4 20 O38 
6E F 74 ASCII 


P.AAD: .ASCII IMAGE image execution\ 


20 $8 20 $8 ae rtf 41 4D 49 


ans 0006° cigeamme LONG. 17680266 
"3 Pe 
4 


« 

SHOWN SC 16-Sep-1986 01:21: AX=11 BLiss-32 v4.0-74 Page 7 

VO6 Ve-Sep-tobe 12:09:99 — ECLTURLeSRESshoumise-039;1 9 «5) 
8 P.AAC: .LONG 17694756 


ADDRESS P.AAD 
: P.AAF: .ASCII \ INTERACTIVE interactive job ter\ 


ay 3 


P.AAE: .LONG 17694 


ons 
oo 
nw" 
or 
s 
Ww 
or 
—— 
, 
ammnm 
nex 
"OOO 
oa 
ooo wrce 
~ror NOrr 
eroOo 
a a | 
ornnr 
moooe 
oo 
o— 
NYT OAA SNMOO 
VINOOMOVUIMOomM 
oo 
oo 
Wo 
Fd 
Sssssooeo 
- 
Pd 
wn 
o 
to 
oa 
a 
3 
ee 
P| 
a 
NO 
a. 
> 
a 


-ASCII = 
P.AAS: .LONG 17694754 

-ADDRESS P.AAT 
P.AAV: .ASCII \Accounting is not currently enabled.\ 
P.AAU: .LONG 17694756 


ADDRESS P.AAV 
P.AAX: .ASCII \Accounting is currently enabled to log t\ 


6 ; 
8 ‘ 
8. Hise 
49 41 46 $f SE 469 467 GF 4C 2 " 8 P.AAH: . ASCII \ LOGIN.FAILURE login failures\<0> ; 
69 61 66 20 6E 69 67 6F 6C 4 ¢ Oar : 
80960000" a PANG: “ADDRESS PAAM 
53 45 43 4F 52 50 42 55 53 30 0 : 9 00C4 P.AAJ: <ASCII \ SUBPROCESS subprocess terminat\ : 
65 63 6F 62 75 0 9 0003 ; 
74 61 6€ 69 6D 6 4 O0E ; 
0 6& 6F OoEC .ASCII \ion\<0> : 
80000000" go0rs “!* “ADDRESS PaaS. 
20 464 45 48 43 41 56 45 44 20 0 20 20 6 0 OOF 8 P.AAL: ASCII \ DETACHED detached job termin\ : 
65 63 61 74 65 64 9 0 0 10 3 
6 69 6D 6} 65 7% F 6A 00116 : 
00 00 6& 6F 69 74 gi 120 .ASCII \ation\<0><0><0> : 
ST age cs ee | 
20 20 20 $8 48 4 4 61 & $8 $8 0 § 3 0 00130 P.AAN: .ASCII \ BATCH batch job terminati\ : 
62 6F 6A 20 63 74 61 6 9 0 9 0 0013F ; 
69 74 61 6E 69 6D 65 74 20 Q14e : 
00 00 ge 6F Baie ASCII \en\<0><0> é 
80000000" 00160. *"* “ADDRESS 'PCAAN’ 
20 20 48 52 4F 57 54 4E 20 20 0 20 20 20 164 P.AAP: .ASCI] \ | NETWORK network job termina\ : 
6A 20 2 6F 77 7% 65 30 : 30 20 0 00173 : 
61 6€ 69 6D 72 65 74 20 6 GF 182 ; 
6— OF 6 4 18C ASCII \tion\ : 
BIO BSREO® OOT8G kOe tone ess poAAP 
20 20 20 20 54 4f 49 52 50 30 0 30 30 20 § 198 P.AAR: <ASCII \ PRINT all print jobs\<O>  : 
4 69 72 70 20 6C 6C 61 20 30 9 0 20 1A7 
00 62 6F 6A 1B6 
tats 126 — soMeess Pb aaa 
20 20 45 47 41 53 53 45 4D 20 20 3 § 6 1C4 P.AAT: ASCII \ | MESSAGE user messages \<0> 
3 65 6D 20 72 65 73 75 20 30 é 9 182 
1 
1E 
1f6 
1FF 
of 
18 
1C 
A 
44 


SSSSSSSSSSSSSSSSSSSSSSSSSS 
Pete Se Se Se Se Se Se Se Ge Se Ge Se Se Ge Se Se Oe Be 


OPN Okom 


63 20 73 69 20 67 34 74 «6€ 


63 61 20 67 6E 69 


ASCII \he following activities: !/\<0><0> 


— 
sonst 


00 00 2F 21 


" 6 
VeoSep-t98e 82:69:59 — LELTUTLesReSshountse 39,1 


3A 73 65 69 7% 69 76,69 74 00258 
1060043 $0360 P.AAW: LONG 17694786 


eADDRESS P.AAX 
«PSECT SOWNS,NOEXE,2 


00000000" 00000000* 00000000* 00000000" 00000000" 00000000" 00000 Acc_TvPE: 
00000000" 00000000* 00000000* 00000000° 00018 P.AAK, P.AAM, P.AAO, P.AAQ, P.AAS 


; Routine Size: 


OA 


58 bytes, 


54 0 
53 0 


64 


Routine Base: 


»ADDRESS P.AAA, P.AAC, P.AAE, P.AAG, P.AAI, 


«EXTRN EXESGL_ACMFLAGS 
SYS$GB_ ae SUR 


posse. DF NBC 


-EXTRN PIO$GB- RMSPROL OG 
eEXTRN SHOWSWRITE_LINE 


-PSECT SCODES,NOWRT,2 


001¢ 00000 .ENTRY SHOWSACCOUNTING, Save R2,R3,R4 
00000006 00 9 9002 MOVAB SHOWSWRITE LINE. R4 
00000006 00 00 000 MOVL  EXESGL RACHPLAGS. ACMF LAGS 
A 12 00010 BNEO ~=:«d1$ 
E 04 00012 CLRL = = (SP) 
0000" CF 9F 00014 PUSHAB P.AAU 
62 FB 00018 CALLS 7.. SHOWSWRITE_LINE 
04 00018 RET 
7E D4 ggic 1$ CLRL = =( SP) 
0000" CF 9F 0001 PUSHAB P. AAW 
FB CALLS #2, SHOWSWRITE_LINE 
D4 CLAL 
E1 23: C 1, ACMFLAGS, 3$ 
D4 8 CLRL = = (SP) 
0000°CF42 0D PUSHL ACC_TYPECI) 
Fe CALLS #2, “SHOWSWRITE_LINE 
F3 00035 3$ AOBLEQ #9. I, 2$ 
04 00039 RET 


SCODES + 0000 


Page 8 
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N 6 

SHOWMISC 16-Sep-1984 01:21: AX-11 Bliss-32 v4.0-74 Pa 
y0e-008 12-808 -138e 93:89:39 CLIUTL. Reishoumise6$351 - (6) 

178 71 1 GLOBAL ROUTINE showSrms_default : NOVALUE = 

1 ie BEGIN 

1 7 

1 : ug i This routine performs the SHOW RMS_DEFAULT funtion. The current settings 

; : f } of the RMS default parameters are output. 

! 23 icoe 

183 1 LOCAL 

198 ¢ status, 

1 desc : VECTOR(2) 

191 arglist : vec torts). 

135 5 buffer : VECTOR(128,BYTE); 

194 e? ! 

132 3 Print the heading Lines 

1 90 showSwrite_line (ZASCID ° MULTI= ; MULTIBUFFER COUNTS | NETWORK’, O, 

1 91 ZASCID ° BLOCK i: Indexed Relative Sequential + BLOCK’, 0 

1 3 ZASCID ° COUNT } Disk Magtape Unit Record ! COUNT’. 05; 


' 
Format and print the process RMS defaults 


FENLSSELE 


Mrororor 


Mrrorororr 
E2333 


arglist(0) = 

8 2 arglist(1] = .pio$gb_dfmbfidx; 
$00 arglist § = .pio$gb_dfmbfrel; 
00 arglist = .pio$gb_dfmbfsdk; 
301 arglist(4)] = .pio$gb_dfmbfsmt; 
308 arglist(5] = .pio$gb_dfmbfsur; 
$02 arglist(6) = .pio$gb_dfnbc; 
305 showSwrite_line(ZASCID ‘Process '!4SB : '48B8 '4SB '4SB '4SB '4SB : '4SB°, 
$09 arglist); 


i 
: Now display the prologue and extend default quantities 


LALA POR 


Fans 


Morunonononononys 

oooo 

SELES 
SOOOSOOOOCOOCOCOCOOCO COCO OCSCOOOOOOSOOOOOOOOOOOOOOOOOoOO 


10 
1) 
18 
14 
15 306 : 
18 4 : Format and print the system RMS defaults 
18 314 arglist(0) = .sys$gb_dfmb 
19 318 arglist(1] = .sys$gb_dfmbfidx; 
0 1 arglist § = .sys$gb_dfmbfrel; 
1 14 arglist = .sys$gb_dfmbfsdk; 
g 15 arglist(4] = .sys$gb_dfmbfsmt; 
318 arglist(5] = .sys$gb_dfmbfsur; 
: HEA arglist(6) = .sys$gb_dfnbc; 
6 19 showSwrite_line(ZASCID ‘System  !4SB : '48B8 '4SB '4SB '4SB '4SB + '4SB", 
7 0 arglist); 
$ 1 
3 : 
1 4 
; 5 
359 


ROPIPIMSPINININDPYNIPINIPNINPPoNNoPonony 


Morofonofororory 


arglist(0) = .pio$gb_rmsprolog; 
srgtisttt3 piodie reas a: 


= .pioSqw_rmsexten 
show$Swr . 


te_line(ZASCID ‘!/ Prolog Extend Quantity !/Process '!4SB 'Suw*, arglist); 


oa CU SO OC ee . 


| 7 
SHOWM 1 SC Ib-se “19 :21: AX-11 Bliss-32 v4.0-74 e 1 
‘Wo0-008 eee ra anh i hg Pett ae age 8 
5 5 
3 arglist = .sys$gb_rmsprolog; 
ar Uisttig = ,sys$qw_rmse rendi 
| showSwr te. Line CRAGt TD *Eystem '4$8 'Suw’, arglist); 
40 RETURN; 
4) END; ! End of showSrms 


-PSECT SPLITS,NOWRT ,NOEXE,2 


49 54 4c H 40 : i 30 30 : i s 0 G8 P.AAZ: ASCII. \ MULTI= | MULTIN ; | 
F as s 45 i : ‘ 0 $0 .ASCII \BUFFER COUNTS § NETWORK\<O> | 
= . 09 06 a6 ASCII ry Pe: 
$0 5: be ci. “ADDRESS PeaAy : 
48 43 ‘F at 42 20 20 20 i 20 20 0 30 ; P.ABB: .ASCII \ BLOCK ; Indexed felative \ ; 
TEETELELELilil: sacl \ —Nammmtiol fee 
is 3 oF 4C 42. 20 


P.ABA: .LONG 17694796 3 
-ADDRESS P.ABB : 
eASCII \ COUNT i \ 3 


SS 
MMMDO LAO 

ss 
mrmo ry 


ASCII \Disk Magtape Unit Record | COUNT\ 


wrorororor 
s£oOoo°oo 
&~rororery 


mMmMeoOooo 
~ 

ono 

“roron 


B6 
Br 
506 
sf 
es 
F 
a 
16 
g 9983 
44 ‘ 
0 7C 20 64 72 65 $3 6t 53 30 48 
S985. BERS? PMOC: hoe, t76gs7 7 
20 30 ‘ ; 34 : iH : 73 23 : $3 fi t3 9 $8 P.ABF: ASCII \Process '!4SB : '468B '4SB t\ : 
1 0 20 3 63 3 4 51 86 | 
20 0 20 9 ‘ 33 ge | 9 29 9 @0 i : 7 9 30 -ASCII \4SB = '4SB '4SB | '4SB\<0> 
id ent alt * aS ASCII <> 
or 004A ° B4 P.ABE: .LONG 1304796 
O00 * 00388 -ADDRESS P. ; 
20 9 $ 53 3 ; 2 20 : : : 2% ; ; ; BC P.ABH: .ASCII \System '4S8 ! '4SB '4SB Wa 
1 0 20 65 > oe, DA : 
20 20 4 30 ‘ ; ge 31 0 29 0 ¢0 ; ‘ 4 9 E4 -ASCII \4SB =. !4SB '4SB ! '4SB\<0> 
00 42 53 34 21 ts ia so 
F 72 $0 20 20 20 20 20 0 20 2 00960090 416 ee “ADDRESS, ABH P quantities th} 
% 35 RS Se $f 5h 88 88 88 88 OS gost Seip Pees ASCH ae eee Sereray 7" 


ae C ; 
v04 


soe sHn i RRR egg § 
s 
""SHRERRRB HER, 


20 2 


2 000000006 oo” é 
i voopmage oe 
E 04 
0000" CF OF 
E 04 
0000" CF OF 
E ps 
0000" CF 44 
d8 . 000000006 09 
dC patti 006 00 D 
EO 00000006 00 00 
E4 AD 44 4-44 443 0 dO 
E8 AD 00006 00 4 
EC AD 90000006 00 0 
FO Ad 000000006 00 +4 
AD 9F 
00 eB. 
62 3 F 3 
D8 AD 000000006 D 
DC AD 000000006 00 00 
EQ AD 00000000 dO 
fa 00000006 b 
E8 AD 000000006 Dd 
EC AD 000000006 00 D 
FO AD 000000 0 3 
p AD 9F 
0000" CF 9F 
62 F 
D8 AD 000000006 Dd 
DC §=AD 000000006 3 
) AD 9F 
0000" CF 9F 
62 F 
D8 AD 44444 D 
DC = =AD 000000006 3 
Dd AD 9F 
one F 
04 


; Routine Size: 220 bytes, Routine Base: S$CODE$S + OO3A 


1b-sep=1 :21: AX-11 Bliss-32 v4 or? 4 
12-808- 1382 93:83:33 CLIUTL.SRCJSHOWMISC. 533.1 
i ASCII ‘Process '458 'SuW\<0> 
4 P.ABI: LONG 17694787 
- ADDRESS 
45C P.ABL: “ASCII visonen '4SB 'SuW\<0> 
P.ABK: .LONG 17694747 
C -ADDRESS P.ABL 
.PSECT SCODES,NOWRT,2 
00 .ENTRY SHOWSRMS DEFAULT, ave R2 
000 MOVAB SHOWSWR RITE 
00 MOVAB =168(SP) se gbiN 
9005 CLRL = = (SP) 
901 PUSHAB P.ABC 
0 14 CLRL = (SP) 
0016 PUSHAB P.ABA 
OO1A CLRL 5 (SP) 
001¢ PUSHAB P.AA 
00 9 CALLS #6 SHOWSWR ITE_LINE 
00 MOVL P1OSeB. DEMBC RRGLIST 
00 8 MOVL §§ PIOSGBTDFMBFIDX, ARGLIST+4 
00 MOVL  § PIOSGBDFMBFREL. ARGLIST+8 
00 MOVL §§ PIOSGBDFMBFSDK. ARGLIST+12 
0004 MOVL § PIOSGB"DFMBF SMT. ARGLIST+16 
0048 MOVL § PIOSGB"DFMBF SUR LIST +20 
005 MOVL PIOSGB”DFNBC, ARGL IST 4 
0058 PUSHAB ARGLIST 
005 PUSHAB P.ABE 
006 CALLS #2, SHOWSWRITE xine 
006 MOVL § SYS$GB_DFMBC, ARGLIST 
0060 MOVL  SYS$GB7D Te ten ARGLIST+4 
80075 MOVL SYSSCB-DEMBFREC. ARGLIST+8 
0070 MOVL § SYSSGBTDFMBFSDK. ARGLIST+12 
085 MOVL SYS$GB =DEMBE SMT. ARGLIST+16 
99 MOVL §§ SYSS$GB"DFMBFSUR. ARGLIST+20 
09 MOVL  SYSSGB"DFNBC, ARGLIST+24 
0090 PUSHAB ARGLIST 
OA0 PUSHAB 
AG CALLS #2, SHOWSWRIT 
AT? VL PTOseB R WASPROLOKL” FRGLIST 
OOAF VL P1OSGu. RMSEXTEND, ARGLIST+4 
0087 PUSHAB ARGLIST 
OOBA PUSHAB 
9 E CALLS #2, SHOWSWRITE_LINE 
C VL seésep _RMSPR hor og. ARGLIST 
9 9 VL SYSSGu> RMSEXTEND. ARGLIST+4 
001 PUSHAB ARGLIST 
004 PUSHAB P.ABK 
O08 CALLS re SHOWSWRITE_LINE 


oOoooo°ooo 


oooo°oc°o°oo 
WAAANA A 
Ok ed ed ad ed 
ODNOWS WN 


ooo 


1Beseo- 
-Sep-1 


abe f2ibs:ss 


AX-11 Bliss-32 v4. ae ie 
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cs eRe ee AMEE ee nace 
_sroumasc 1Sseoct9ee ON:20:13  yanet ob ing=52 ye 06743 


GLOBAL ROUTINE showSworking_ set : NOVALUE = 
BEGIN 

lece 

i 

} The current working set parameters are output. 


LOCAL 
status, Status return 
default : 4 57 ee WS default 
quota : VOLATI WS quota 
extent : Oo ATiCe WS extent 


max_quotea : VOLATILE 
max_extent : V 


ay LE. Maximum authorized quota 
pcb-flags : el ivEctOnts23, 


Maximum authorized extent 
PCB status flags 


SHIS AFA SSSIFTFER IS SEGF ARUN AS SOO Roe 


; tem_list : ote 72he4 SGETJPI item List 

3 jiosb : VECTOR SGETJPI final status block 

; 8 arglist : : vECTORES], Argument List for SFAOL 

3 desc : VEC be) Descriptor for $FAOL buffer 

; 9 buffer : VECTORL128,8YTE); SFAOL buffer 

3 8 LITERAL 

3 disallow. bit = SBITPOSITION (pcb$v_disaws); 

; P 0 setup_list( item_list, 

: e 8 i$-sts, 4, pcb_flags, g. 

3 P pi$_dfwscnt, 4, default, . 

: P 0 pi$_wsquota, 4, quota, 0, 

3 P piS_wsextent, 4, extent, 0, 

3 6 pi$_wsauth, 4, max_quota, 0, 

3 P 0 pis” wsauthent, 4, max_extent, 0, 

; , } 0,0, 

; er P 0370 status = sarkinuetine al = item list, 

3 0371 SB = ios 

3 re IF .status THEN status = (. °F0sbL03)<0, 16>; 

; 281 7 If NOT .status 

: 28 74 N 

; 28 0375 SIGNAL_STOP(. status); 

: $83 $379 

; 285 7 arglist(0) = .default; 

: a6 8 4 arglistliJ = .quota; 

3 44 3144 arglist(2J = .extent; 

; 289 3 showSwrite adage t= * Working Set /Limit= 'UL /Quota= !UL /Extent= !UL', 
3 arglist 

3 1 0 

3 4 orgt iseto} = ,max_quota; 

3 5 arglist(1] = .max_extent; 

3 5 if -pcb_flags(disallow_ bit) : é ; 
3 2S : THEN showSwrite_line(ZASC fee) Adjustment disabled Authorized Quota= 'UL Authorized Extent= 'UL', 
; 8 $35) ELSE showSwrite_ tine dB Set Adjustment enabled Authorized Quota= 'UL Authorized Extent= '!UL', 


ae l 


1e=$s-198e 42:69:59 Eek Ture saeSsnoumise-0$3, 1 peer 
ND; ! End of show$work 


-PSECT S$PLITS,NOWRT ,NOEXE ,2 


3 20 67 6& 69 68 72 6F 57 P.ABN: . ! = 
33 fe 69 b 63 ee 20 ABN ASCII \ Working Set /Limit= !UL /Quota=\ 
78 4 F 20 20 20 20 of eASCIT \ SUL /Extent= !UL\ 

... 1 ? 


17694780 
P. ABN 


PRERRRR ES 


ss 
FO>—SOMO—SSS 

S 
ININNLND 
SSSSSSSSsSese 


: : 
BC P.ABM: .LONG : 
0000" C -ADDRESS P. : 
$f $3 $8 te 30 75 e os é ‘ BS P.ABP: .ASCII \ Adjustment disabled Authorized Quota\ : 
1 76 6F 1 20 64 E : 
£ Hy 75 41 20 20 4 $ i 2 § C ASC \= ! Author i =! : 
S&S Oe 6 ig ¢ 5 OcF I] = 'UL Authorized Extent= !'UL\<0><0> 
0508 ASCII <0 ; 
0106004 050¢ P.ABO: .LONG 17694789 : 
65 60 74 73 75 6A 66 41 8 009 o3i0 P. ABR: 27) gg te enabled Authorized Quota\ ; 
of 41 20 20 20 20 64 65 66 é2 61 005 3 aes Sa : 
} rs ef 2 ) ee : i 50 $ W058 ASCII \= 'UL Authorized Ext 'UL\<0><0 ; 
° =! t =! <Q><Q> 3 
Sf oe ee fh 38 te So Be 65 00548 a ee : 
09 bosen ASCII <0> : 
01060045 0055C P.ABQ: <:LONG 17694789 : 
00000000" 00560 -ADDRESS P.ABR ; 
.EXTRN SYSSGETUJPIW 
.PSECT S$CODES,NOWRT,2 
0004 00000 .ENTRY SHOWSWORKING SET, Save R2 : 0335 
52 000000006 00 9€ 0000 MOVAB SHOWSWRITE LINE, a : | 
3E FEDC CE 9€ 000 MOVAB 292 ; 
5 FF7C § CD 9E 000 MOVAB ITEM bist. PTR : 0368 
80 03050004 &F p 001 MOVL  #50659332, (PTR)+ F 
0 : ; OOtA MOVAB PCB FLAGS. (PTR)+ F 
D 1D CLRL (PTR)+ 3 
80 04030004 8F DO OOOTF MOVL  #67305476, (PTR)+ : 
0 FC AD 9E 00026 MOVAB DEFAULT, (PTR)+ ; 
0 D4 ; A CLRL (PTR)+ 3 
80 04020006 8F DO MOVL #67239940, (PTR)+ ; 
0 F8 AD 9E 000 MOVAB QUOTA, (PTR)+ ; 
0 04 $3 CLRL * 3 
80 04160006 8F D0 00039 MOVL #68550660, (PTR)+ : 
0 F4 AD 9E 00040 MOVAB EXTENT, (PTR)+ : 
0 D4 4 CLRL = (PTR) ; 
80 04010006 8F DO 00046 MOVL #67174404, (PTR)+ ; 
0 FO AD 9E 00040 MOVAB MAX QUOTA, (PTR)+ : 
80 D4 00051 CLRL ; 


3; Routine Size: 


208 bytes, 


i 
00 
cE 
cE 
CD 


0096 


62 


Routine Base: 


os 
- 
com 


= os 
2226 44+ 


VIMS amMMoOONWMMooS —OoCON 


PSLV=TLATSSSLISSETES 


SCODES + 0116 


7? 


sSrseontgee 1:20:13 yanctt Bling 32 ve.00743 | 


#68616196, (PTR)+ 
MAX EXTENT, (PTR)+ 
(PTR) + 


(PTR)* 
(PTR)* 
=(SP) 


1038 

TEM_LIST 

=(SPy 

9). SYSSGETUPIU 
STATUS 1 


1088, §TATUS 
STATUS, 2$ 
TAT 


#1, LIBSSTOP 
DEFAULT, ARGLIST 
QUOTA, ARGLIST#4 
EXTENT, ARGLIST+S 
ARGLIST 

P.ABM 

#2, SHOWSWRITE LI 
MAX_QUOTA, ARGCIS 
MAX-EXTENT, ARGLI 
PCB-FLAGS+$, 3$ 
ARGCIST 


T 
ST+4 


4$ 
ARGLIST 

P. ABQ 

#2, SHOWSWRITE_LINE 


0371 


R 7 , 
semis stetaee OaUs YAU MESSRMEEZ., toe ge 
| 


i 05 8396 0 Eton 


| -EXTRN LIBSSTOP 


3 PSECT SUMMARY 

; Name Bytes Attributes 

; SPLITS “ie RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3; SOWNS is ie RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 

; wo-nn--- Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

; _$255S$DUA28:(SYSLIBIL1B.132;1 18619 22 0 1000 00:01.9 

; COMMAND QUALIFIERS 

F} BLISS/CHECK=(FIELD, INITIAL .OPTIMIZE)/LIS=LIS$:SHOWMISC/OBJ=OBJ$:SHOWMISC MSRCS$: SHOWMI] SC/UPDATE=(ENHS: SHOWMISC) 


; Size: 486 ofr : 1420 data bytes 
t 8: 241.5 
34 
; Lexemes/CPU-Min: 18772 


; Memory Used: 130 p s 
; Foaetiekion. Conpiere” 


AH-BT13A-SE 
VAX/VMS V4.0 


0057 
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